home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
cadence.zip
/
VOL1NO4.ZIP
/
SETLAYER.LSP
< prev
next >
Wrap
Text File
|
1986-09-25
|
170b
|
11 lines
(defun c:SETLAYER (/ LAYER)
(setq LAYER
(cdr
(assoc 8
(entget
(car
(entsel "Pick item for new layer "
))))))
(command "LAYER" "SET" layer "")
)